(DEFUN C:RECLOUD ()
  (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! "))
  (SETQ bulge_dir (ukword 1 "Left Right Keep" "Cloud bulge direction? [Left/Right/Keep]" (IF bulge_dir bulge_dir "Keep")))
  (COND
    ((EQ(STRCASE bulge_dir) "KEEP")(SETQ bulge_sign '(IF(/=(CDR N)0)(/(CDR N)(ABS(CDR N)))1.0)))
    ((EQ(STRCASE bulge_dir) "LEFT")(SETQ bulge_sign -1.0))
    ((EQ(STRCASE bulge_dir) "RIGHT")(SETQ bulge_sign 1.0))
  )
  (SETQ ITE (ENTGET(CAR(ENTSEL))))
  (FOREACH N ITE (IF (EQ (CAR N) 42)(SETQ ITE (SUBST (CONS 42 (* (EVAL bulge_sign) 0.60))N ITE))))
  (ENTMOD ITE)
  (PRINC)
)